unit dPing;

interface
 uses
  SysUtils,
  PingSend;

 function Ping(Host: string): boolean; 

implementation

 function Ping(Host: string): boolean;
var
 FPing:TPingSend;
 begin
  result    := False;
  try
   if(Host='') then
    Exit;
   FPing         := TPingSend.Create;
   FPing.Timeout := 1000;
   try
   result    := FPing.Ping(Host);
   except
     result  := False;
   end;
  finally
   FreeAndNil(FPing);
  end;
end;

end.
